MacWorld 1998 May/Macworld (1998-05).dmg/Shareware World/Comms & Internet/ProTERM_1.2.5.Install/ProTERM Mac1.2.5/Macros/Resident User 1203

Text File | 1997-10-08 | 5.7 KB | 291 lines | [DIRC/PTM2]

/**************************************
 *                                    *
 *  ProTERM/Mac Resident User Macros  *
 *                                    *
 *   Version 1203   Updated 10/2/97   *
 *                                    *
 **************************************/
/*
 Revision History:

  10/02/97 - Version 1203. Removal of F1-F12 macros to Resident User Custom.
  03/01/97 - Approximate creation of 1202, based on 1201 file.
  08/01/96 - Approximate creation of 1201, based on 110x file.
*/


//
// NOTE: Text between '/*' and '*/' and following '//' are comments.
//

//
// Special "link" code just in case file is executed directly
//
FUNC main()
{
 EXTERN(PREF_GET("mac1"),main(1));
 RETURN;
}


/***********************************************************************/
/*                   Start of Startup Macros                           */
/***********************************************************************/

FUNC startup(STR file)
{

//
// Add startup macro variables after this comment
//

//
// Add startup macro code after this comment
//

 UI_EQUIV("File:Save As…","M");
 UI_EQUIV("Edit:Format Test","T");
 UI_EQUIV("Edit:Macro Exec","/");
 UI_EQUIV("Edit:Character Count",",");
 UI_EQUIV("Edit:Convert:Paragraph Format","U")
 UI_EQUIV("Edit:Convert:Smart Quotes","J")
 UI_EQUIV("Edit:Convert:Reply Format","Y")

// leave this code unchanged
 RESIDENT("",0,#KeyAccess+#LibAccess);
 RETURN;
}


/***********************************************************************/
/*                   Start of Keyboard Macros                          */
/***********************************************************************/


//
// COMMAND+OPTION+K: Resize editor window to 80x24
//
FUNC ked_0928()
{
 WIN_SIZE(WIN_ACTIVE(0),80*6+19,24*12+8);
 RETURN;
}


//
// COMMAND+OPTION+F: Insert First Name into Editor
//
FUNC key_0903()
{
 UI_TYPE(first_name(GESTALT(name)));
 RETURN;
}


//
// COMMAND+OPTION+N: Insert Name (first+last) into Editor
//
FUNC key_092D()
{
 UI_TYPE(GESTALT(name));
 RETURN;
}

//
// COMMAND+OPTION+O: Insert Name @ Org into Editor
//
FUNC key_091F()
{
 UI_TYPE(GESTALT(name)+" @ "+GESTALT(org));
 RETURN;
}

//
// COMMAND+OPTION+Y: Auto Reply Format
//
FUNC ked_0910()
{
 UI_MENU("Edit:Convert:Paragraph Format");
 UI_MENU("Edit:Convert:Reply Format");
 UI_CLICK("Format");
 RETURN;
}


/***********************************************************************/
/*                   Start of Library Macros                           */
/***********************************************************************/


//
// Return First Name (from full name)
//
FUNC first_name(STR name)
{
 RETURN(STR_LEFT(name,STR_INDEX(" ",name)));
}

//
// zoom window back to user size
//
FUNC zoom_user()
{
 WIN_ZOOM(WIN_ACTIVE(0),"-"));
 RETURN;
}

//
// zoom window to default size
//
FUNC zoom_default()
{
 WIN_ZOOM(WIN_ACTIVE(0),"+"));
 RETURN;
}

//
// zoom window to minimum size
//
FUNC zoom_min()
{
 WIN_ZOOM(WIN_ACTIVE(0),"<"));
 RETURN;
}

//
// zoom window to maximum size
//
FUNC zoom_max()
{
 WIN_ZOOM(WIN_ACTIVE(0),">"));
 RETURN;
}

//
// zoom window to maximum vertical
//
FUNC zoom_vert()
{
 WIN_ZOOM(WIN_ACTIVE(0),"{"));
 RETURN;
}

//
// zoom window to maximum horizontal
//
FUNC zoom_horiz()
{
 WIN_ZOOM(WIN_ACTIVE(0),"}"));
 RETURN;
}


/***********************************************************************/
/*                   Start of Event Macros                             */
/***********************************************************************/


//
// Sample "connect event" macro
//
FUNC ev_conn(INT ses, STR term, STR name, INT numb, INT time)
{
 PRINTF("ev_conn()^m");
 PRINTF("session = $%x^m",ses);
 PRINTF("term = %s^m",term);
 PRINTF("name = %s^m",name);
 PRINTF("numb = %s^m",numb);
 PRINTF("time = %D %T^m",time,time);
 RETURN;
}


//
// Sample "xfer event" macro
//
FUNC ev_xfer(INT ses, STR mode, STR proto, INT time, INT ticks, INT cur, INT max, STR path, STR name, INT len, INT mod, INT type, INT create, INT bytes, INT spent, INT cps, STR opts, INT errs, STR result)
{
 PRINTF("ev_xfer()^m");
 PRINTF("session = $%x^m",ses);
 PRINTF("mode = %s^m",mode);
 PRINTF("proto = %s^m",proto);
 PRINTF("time = %D %T^m",time,time);
 PRINTF("ticks = %d^m",ticks);
 PRINTF("cur = %d^m",cur);
 PRINTF("max = %d^m",max);
 PRINTF("file path = %s^m",path);
 PRINTF("file name = %s^m",name);
 PRINTF("file len = %d^m",len);
 PRINTF("file modified = %D %T^m",mod,mod);
 PRINTF("file type = '%P'^m",type);
 PRINTF("file creator = '%P'^m",create);
 PRINTF("bytes = %d^m",bytes);
 PRINTF("spent = %S^m",spent);
 PRINTF("cps = %d^m",cps);
 PRINTF("opts = %s^m",opts);
 PRINTF("errs = %d^m",errs);
 PRINTF("result = %s^m",result);
 RETURN;
}


/***********************************************************************/
/*                  Example Macro Window                               */
/***********************************************************************/


//
// COMMAND+OPTION+E: Open macro window
//
FUNC key_090E()
{
 LOCAL INT win;

 IF (WIN_FIND("Dot-Cmds")) {
  RETURN;
 }

 win = WIN_OPEN("Dot-Cmds", 1, -87, 83);
 WIN_BUTTON(win, 1, "reply-start");
 WIN_BUTTON(win, 2, "reply-end  ");
 WIN_BUTTON(win, 3, "hanging    ");
 WIN_BUTTON(win, 4, "flush      ");

 WIN_MACRO(win, 1, “edit_win('ºre(‘ > ’)º^m');”);
 WIN_MACRO(win, 2, “edit_win('ºreº^m');”);
 WIN_MACRO(win, 3, “edit_win('ºlm5ººpm-3º^m');”);
 WIN_MACRO(win, 4, “edit_win('ºlmººpmº^m');”);
 RETURN;
}

//
// callback function used by window routines
//
FUNC edit_win(STR cmd)
{
 IF (WIN_TYPE(WIN_ACTIVE(0)) == 'EDIT') {
  UI_TYPE(cmd);
 }
 RETURN;
}

FUNC ref_test(INT xxx, yyy)
{
 str_parse("567","%d",xxx);
 str_parse("123","%d",yyy);
 xxx = yyy + 3;


 RETURN(xxx);
}



FUNC ktr_0805()
{
 FN_SETPATH(0,"Sys:Internet:");
 UI_MENU("File:Save As");
 pr("testing");
 end;
}